home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
ivb92b.zip
/
PRTINFO1.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-09-17
|
3KB
|
87 lines
Form1
Get default printer info
Form1
lblPrinter
lblDriver
lblPort
lblLPI
Label1
Command1
Get Default Printer Info
Command2
Form_Click
GetProfileString
lpAppName
lpKeyName
lpDefault
lpReturnedString
nSizeU
Command1_Clickg
lpRetStr
NumChars&
NullStr
lpRet
koRetStr
CommaPos1`
CommaPos2=
lblPrinter
Caption
lblDriver
lblPort
Command2_Click
DeviceInfo
Device_Error
PageScale
GetDeviceCaps
Printer
LOGPIXELSX
LOGPIXELSYn
FALSEG
POINTAPI
PageSizex
Result8
Escapeu
GETPHYSPAGESIZE
Orientation
GETSETPRINTORIENT
lblOrientation
X_Size
Y_Size
Vertical_resolution
Page_Size
lblPaperSize
lblXSize
lblYSize
lblVerticalResolution
lblScaleX
lblScaleYT
Lines_Per_InchB
Pixels_Per_Inch
TextMetrix
TEXTMETRIC
GetTextMetrics
tmHeight
tmExternalLeading
Lines_Per_Inch
lblLPI^
Kernel|
Command1_Click
windows"
device
Printer: "
Driver:
Port:
lblOrientation.Caption = "Orientation: Portrait")
lblOrientation.Caption = "Orientation: Landscape"
lblOrientation.Caption = ""
lblPaperSize.Caption = "Page Size:" + Page_Size$ + " inches"
lblPaperSize.Caption = ""a
lblXSize.Caption = "X Size = " + Str$(X_Size!)
lblYSize.Caption = "Y Size = " + Str$(Y_Size!)
lblVerticalResolution.Caption = "Vertical Resolution = " + Str$(Vertical_resolution)
lblScaleX.Caption = "Pixels X: " + Str$(PageScale.X)
lblScaleY.Caption = "Pixels Y: " + Str$(PageScale.Y)
Command2_Click
DeviceInfo
Lines_Per_Inch